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1.0 INTRODUCTION. 


The programming language used in this implementation is COC CYBIL 
Extended. The details of the interface are defined in terms of CYBIL. 
structures. 
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1.1 SCOPE_OF DOCUMENT 


This document is one of a set of documents describing portions of the 
interfaces which are part of the SES Utility Library. A seperation has 
been made to simplify documentation efforts and to exemplify the natural 
modularity. 

This document: contains information necessary for the understanding and 
use of the Input Output Controt (I0C) available through Software 
Engineering Services Utility Library (SESUL). . 
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1.2 ASSOCIATED DOCUMENTS 


The following documents may be referenced in part to obtain a more 
complete understanding of the origins uses and nomenclature associated 
with Input Output Control. 

NOS/VE ERS 

Language Specification for COC CyBIL (ARH2298) 

ERS for CYBILIO (ARH2739) 

Cyber 180 System Interface Standard ($2196) 

SES Procedure Writers Guide (ARH2894) 

SES User's Handbook (ARH1833) 

Message Generator ERS (SES Internal) 

Miscellaneous Routines ERS (SES Internal) 

Command Processor (CP) ERS (SES Internal) 

System Command Language (SCL) ERS (SES Internal) 


SES Processor ERS (SES Internat) 
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1.3 NAMING CONVENTIONS 


The following naming conventions have been imposed upon the I0C and 
reflect upon the SES Utility Library interface routines in general. 
Decknames are of the form Zpcyxxx where: 


zZ universal SES identifier 


pc two character interface identifier. 
10. Input Output Control 


y type of deck 

Compass module (Ident) 
CYBIL procedure reference 
CYBIL constant declaration 
CYBIL TYPE: declaration 
CYBIL variable dectaration 
CYBIL module 

CYBIL function 


Tse Ow 


XXX. three characters representing the abbreviated 
descriptive name of the deck (suggestion is first 
characters of the words composing the descriptive 
name). 
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1.4 [OC_USAGE 


Ali procedures described in this document are available for use. 
Common decks are made availabte by specifying the "CYBCCMN® keyword on the 
SES»GENCOMP procedure. The. binaries are availabie for IJlinking by 
specifying the "CYSCLIB”™ keyword on the SES»LINKI70 procedure. 

Note that more dcurrent copes of [OC routines are generaily made 
available in the *$55" cataiog as a function of pre-release while a 
release version is found on the "SES" cataloge <A conpiete summary of 
decks updated during pre-release may be obtained From your tocat SES 
representative. 
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200 [OC_DESCRIPTION 


rac provides the user an input/output interface to togically 
concatenate input from multiple sources and distribute output to muftiptie 
destinations. The purpose of the [0C interface is to centralize the 
control of input and output streams to and from user command programss soa 
that processing is invariant with the mode of access} e@2ges local batchs 
remote batch or interactive. I0C handles onty text type data and works 
with CYBILIGO tegibie files. 
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2e1 QBJECTIVES GF_1OC 


The objectives of the I[0C interface are: 
(1) centralize contro! of input and output for SES Utility interfaces and 


(2) make the I/0 processing invariant with the mode of accesses 
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202 PHILOSOPHY QE_LOC 


10C is a high tevet: interface to control I70 to CYBILIO tlegibte files. 
There are two sides to the [0C interface. 

Input is controiied through the itovS$input_stack. Entry one is 
associated with standard input. Entries 2 ee n are associated with 
command file (alternate) input sources opened during program operation. 

Output is controlled through the lovSioc_stream_tabile. [t is composed 
of a tist of files and a matrix of booleans indicating 8 possibte stream 
connections to the 8 Files. The file Jlist contains control biock 
information for the files. <A table is kept for stream names and ordinal 
association. Variables jovSinput_ stack» fov$ioc_stream_table and 
iov$stream_map are externally deciared and initialized by 
iop$ioc_initialize. 

Basic procedure interfaces are provided to connect/disconnect streams 
and files» open/close input filess get/put datas and position input 
files. : 

Note that automatic buffer flushing is done for ali CYBILIO files of 
terminal origin... It is expected that iop$ioc_terminate is used to 
terminate IOC operations by closing I0C files opened by initialization. 
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320 [OC_INTEREACES 


3o1 QESCRIPTLION 


The [0C interfaces are composed of the deciarations of the Input Stacks 
Stream Map and Stream Table along with procedure interfaces to control 1/9 
using these structures. 
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322 DATA_ELOW DIAGRAM ODF _ INPUT OUTPUT CONTROL 
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3-3 DATA_STRUCTURES 


30301 GENERAL STRUCTURES 


The common decks presented contain information which forms the basis 
for the higher level structures in the next sections. 


{ ZIOTLNG Definition of command fite line timitations. } 


CONST 
ioc$max_line number = 10003 


TYPE 
iot$iine_range = 0 «+ ioc$max_line number 3 


{ zrocsas Definition of the input stack size. } 


CONST 
jocssize_of_input_stack = 64} 


{ ZIOCMSR Definition of input stack limitations. } 


CONST 
iocémax stack_entry 2 643 


{ ZIQcIoOM Definition of stream tabte dimensions. } 
CONST 
ioc$max_stream 2 By 
jocS$max_file = 83 
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€ ZIOCSTM Name constants for the I0C Environment. } 


CONST 
out_ File = *toutput!>, 
flog_file = tsesioag!»s 
cond stream = conditional output!» 
di_stream = tdi_output'!s 
fog_stream * 'diagnostic!» 
std stream = 'standard'» 
alt stream = taiternate!; 


{ ziacsTo Definition of input stack ordinals. } 
CONST 


ioc$standard = l» 
jocsaliternate 2 23 
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30322 TOC LINE 


A basic structure used throughout I0C is the tine. 


*calic zoststr | 
€ ZIGTIOL Definition of the iot$line structure. } 


TYPE 
jotstine = record 
index? osti3string_index»s 
length: ost$string_length» 
text: string (osctmax_string_length)>» 


recend; 

index current position pointer within the text string 

length length of text string 

text buffer containing the string of characters which 


compose a tine 
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30323 INPUT STACK 


The Input Stack provides a structure to handle input sources to a 
program. The first entry of the stack is reserved for standard input. 
Entries 2 through itocS$size_of stack are used for atiternative input 


sources. On exhaustion of input or exit from that source the former frame 
is restored. 


¥*¥calic ziocsto 
*callc pxiotyp 
*calic zioting 
¥calic zostnam 
*calle ziotiol 


{ ZIOTSKF Definition of the input stack frame. } 


TYPE 
fiot$stack frame = record 
pointer_to_file: files 
file name: osttnosl70_namep 
line _number: itiot$iine ranges 
line_contents: iotS$tines 
recend; 


pointer_to_file 
pointer to cell which will contain address of file 
control block 

file name name of file 


line_numoer the tine number of fite that is currently being 
processed 


line _contents the line that is currently being processed 
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The variable input stack common: deck is found on deck ZIOVSTK. 


*calic ziocmsr 
*calilc ziocsos 


{ ZIOVSTK. Dectaration of the input stack structure. } | 


VAR 
iov$input stack: (CXREF] record . 
size_of_stack?: 0 «+ iocS$max stack _entr vy» 
entry_in_use? 0.2 foctmax_stack_entry»s 
frame: array(€l «- ioctsize_of_input_stack] of iot$stack_ frames 
recend; 


size_of_stack top of the input stack (equivalent to the number of 


entries) 
entry_in_use the current entry in use in the stack 
frame file description information 
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The output stream table provides a means of outputting to more than one 
file with a single procedure call. A stream may be associated with up to 
8 files. This type is available on deck ZIOTISM. 


*callc ziociom 
*calic zostnam 


{ ZIQTISM Definition of the output stream table structure. } 


TYPE 
iot$stream_table = record 

connects: packed array{1l .- ioc$max_stream] of packed arrayfl ..« 
ioc$max_fite] of booteans 

list: arrayfl .. ioct$max_file] of record 
pointer_to_file:z files 
file _name: ost$nos170_names 
connect_count: 0 «2 toctmax_streams 


recends 

recend;. 

connects this. field contains a boolean map representing the 
connections currentiy established. The rows represent 
possible streams and the columns represent possible 
connections for a stream. 
TRUE indicates an established connection 
FALSE indicates the absence of a connection 

list this fieid contains the files currently connected to 


streamse The file control block and file name are 
maintained for each file connected together with a 
count indicating the number of streams to which the 
file is currently connected. 
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The Stream Table is available as a variable in deck ZIOVISM. 


{ ZIOVISM Declaration of the stream table. variable } 
VAR | 


{output control} 
iov$ioc_stream_tabte: (XREF] iot%stream_tabie; 
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The iov$stream_map is used to relate the stream names to the relative 
ordinal positions in the Stream Table. 


{. ZIOVSTM Declaration of the stream map variable. } 


VAR 
iov3stream_map: [XREF] arrayll «2 ioctmax stream] of ost$name; 


The array of stream names is established by the connect procedure. 
When an empty entry or the name is found in the arrays its position 
becomes the stream ordinal. The connects fieid in the 
iovSioc_stream_tabie is set TRUE for that file. A désconnect sets the 
connects field false for that file. 
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364 PROCEDURES 


3e4e1l INITIALIZE [OC ENVIRONMENT. 


The purpose of this procedure is to initialize the I0C environment. 
This is executed once per program and must be executed before any of the 
following procedures may be used. The iovSinput_ stack» 
iovsioc_stream_tabies and iov$stream_map are initialized and some basic 
stream connections are made.w For general purpose uses the initialization 
handtes any stream-file connections necessary for [0C operation. 


€ ZIQPINI Initiatize the [0C environment. } 
PROCEDURE CXREF] iopS8ioc_initiaiize ALIAS *ziopinit (VAR status: 
ost3status); 


status variable into which status is returned 
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304.2 CONNECT FILE/STREAM 


The purpose of this procedure is to establish a connection between a 
file and a stream for output use. When this procedure is called the map 
field of the stream connection is altered to indicate the connection. The 
file is physically opened for output. Note that the default character set 
on open is ascii612#. 


{ ZIOPCFS Connect the file to a stream. } 
PROCEDURE CXREF)] fop$connect_file_to_stream ALIAS ziopcfs! (file name: 
string ( * )3 


stream: string (€ ¥*. 33 
VAR status? ost$status); 


file name specifies the name of the file to be connected. If the 
file does not exist an error condition will result. 


stream the name of the stream to be connected 


status variable into which status is to be returned 
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304-3 DISCONNECT FILE/STREAM 


The purpose of this procedure is to sever the output connection between 
a file and a stream. The stream connection tabie is updated and the file 
is physicatiy closed if no other streams are connected to it. 


{ ZIOPDFS Disconnect the file from the stream. } 


PROCEDURE CXREF] iop$disconnect_Ffile_from stream ALIAS #ziopdfs! 
(file_name: string ( *® )3 
stream: string ¢ * )3 
VAR status: ost$status)3 


File_name Name of file to be disconnected 
stream name of stream to be disconnected 


status variable into which status is to be returned 
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324.4 OPEN INPUT FILE 


The purpose of this procedure is to open a file for input. The file 
specified becomes the current input file. Its description is added to the 
input control stack and the file is physically opened for input. Note 
that default character set on open is ascii612#. The mode may be altered 


by iop$codeset. 


This procedure saves the tine contents of the current input file in the 
current stack frame before opening the new file. The current stack frame 


is updated for recall before creating a new stack frame. 
exhausted the stack is coltapseds the saved text and 


When a source ts 


position restored. 


This operation occurs during the iop$close_current_input_file. 


*calic zostnam 
*calic zioting 
*calic ziotiol 


{ ZIOPOIF Open an input file. } 


PROCEDURE CXREF] iopt$open_input_file ALIAS *ziopoif? 


iotsiline; 
file _name? ost$nosl70_ name; 
VAR status: ost$status); 


(line contents: 


fine_contents the current source tine to be saved from the stack 
file. This enables the text processing to continue 
when the stack is collapsed back to this pointe Note 


that passing a null line preserves 


buffer contents. 


file name the name of fite to be opened. 
exists an error condition results. 


status variabte into which status is returned 


the stack frame 


If the file does not 
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324.5 CLOSE CURRENT INPUT FILE 


The purpose of this procedure is to close the current input file. When 
a Fite is closed by this procedure its description is removed from the 
input control! stack and the File is physically closed (unlesss it is used 
at a jiower tevel in the stack). 


{ ZIOPCIF Close the current input file. } 


PROCEDURE CXREF) iop$ctose_current_input_file ALIAS ziopcif! (status: 
ost$status); 


status the variable into which status is to be returned 
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32426 SET FILE CHARACTER SET 


The purpose of this procedure is to set the character set of a legible 
file which has been opened by an fiopSopen_input_file or a 
iop$connect_file_to stream. Note that for a connect this should be 
executed only onces at the time of the first connection of the file and a 
stream. Care should be taken not to attempt to change character sets 
during the course of operationse The default used on all CYBILIO opens is 
ascii612#,. 


{ Zi1opcos Change the character code set of a file. } 


PROCEDURE CXREF] iop$codeset ALIAS tziopeds! (file name: string (€ ¥* 33 
codeset: file encoding; 
VAR status? ost$status); 


file name specifies name of file to be set. If the File doesn't 
exist an error condition resuits. 


codeset corresponds to CYBILIO codeset? 
ascii64# 6 bit display code character set 
ascii6124 NOS 6/12 character set 
ascii# 8 of 12 ASCII character set 


status variabie into which status is returned 


COMPANY PRIVATE 


3~17 
CDC - SOFTWARE ENGINEERING SERVICES 
. 07716780 
ERS for Input Output Contro!. Interface REV: 6 
3.0 ({0C INTERFACES 
30427 GET COMMAND LINE 


304.7 GET COMMAND LINE 


The purpose of this procedure is to get a command fine from the current 
input source. Current source may be Standard Input or the alternate input 
source. Each input tine is examined to eliminate trailing blanks. If an 
ellipsis is found as the tast two characters of the line continuation is 
processed. The text line is buiit until 256 characters are processed or 
no continuation is found. In the event the 256 character limit is 
exceeded abnormal status is set and input is flushed until no continuation 
is Found. When a command occupies only a portion of the current text fine 
a boolean is set true. This indicates a user should repeat the get 
operation to retrieve remaining command text in the current line being 
processed. This may be done after the current command is processed and 
prior to taking any action which would aiter stack contents. Multiple 
commands per tine assume a semicolon separator. It is the responsibility 
of the user to process the error status as well as determine the action 
upon the input source. 


{ ZIOPGCL. Get the next command tine. } 
PROCEDURE CXREF]. iop$get_command_ftine ALIAS 'ziopgcet* (VAR texts 

iot$line; 

VAR text_remaining_in_line: boolean; 

VAR status: ost$status)}3 

text variable into which next command tine is returned 

text_remaining_in_liine 
boolean vaiue is true if current text tine contains 
more commands eYse false if current text line exhausted 


status variable into which status is returned 
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304.8. GET COMMAND TEXT 


The purpose of this procedure is to get command text from the current 
input source. This interface gives the user the ability to process a 
command greater than 256 characters. Current source may be Standard Input 
or the aiternate input source. Each input tine is examined to eliminate 
trailing blanks. If an elttipsis is found as the Jast two characters of 
the tine continuation is fiagged via end of _ command set to FALSE and 
end_of_input_line set FALSEs Multiple commands per fine assume a 
semicolon separator. It is the responsibility of the user to process the 
error status as well as determine the action upon the input source. . The 
following table explains actions to be taken on the text line. 


e.g.i.1 e.9.¢ user action 
0 0 process current partial commands repeat cail 
0 1 process current commands repeat cail 
1 0 process current command 
1 1 process current command 


*calilc ziotiol 
*calilc osdstat 


{ ZIOPGCT Get command text } 


PROCEDURE CXREFI] iopSget_command_text ALIAS ziopget* (VAR text: 
iot$line; 
VAR end_of_ command: boolean; 
VAR end_of_input_line? bootean; 
VAR status: ost$status); 


text variable into which command text is returned 

end_of_command booteans true when semi-colon or end of input tine 
indicates end of command » faise when continuation of 
being processeds 

end_of_input_line . 
the current input tine is completely processed (line 
text exhausted) 

status variable into which status of this operation is 


returned 
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32429 GET FROM STANDARD INPUT 


The purpose of this procedure is to get the next tine from the Standard 
Input File. 


{ ZIOPGSI Get the next line of input from the standard input file. } 
PROCEDURE CXREF] iop$get_standard_input ALTAS *ziopgsi' (VAR text: 


iotsline; 
VAR status: ost$status)3 


text variable into which the next line is returned (note the 
line may contain several commands) 


status vVariabie into which status is returned 
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304210 GET FROM CURRENT INPUT 


The purpose of this procedure is to get the next record from the 
current (alternate or standard source) input fite. 


{ ZIopGcr Get the next tine of input from the current input file. } 
PROCEDURE CXREF] iop$get_current_input ALIAS 'ziopgceit (VAR text: 


iot$line; 
VAR status? ost$status)}3 


text variable into which the next tine is returned (note the 
line may contain several commands) 


status variable into which status is returned 
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304011 PUT TO STREAM 


The purpose 


of this procedure is to output text. When. text is output. 


by this procedure it is written on ati files connected to the stream 


specified. 


*calic osdstat 


{ ZIOPPTS Send an output string to the I0C stream. } 


PROCEDURE (CXREF]. 
output_text: 


VAR status: 


stream 


output _text 


status 


ioptput_to_stream ALIAS 'ziopptst (stream: string ( * )3 


string ( * )3 
ost$status); 


the name of the stream to which the text is to be 
output 


the buffer from which the text is written 


variable into which the status is to be returned 
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304.12 GET LINE POSTTION OF CURRENT INPUT FILE 


The purpose of this procedure is to get the line number of the current 
line in the current input file. 


€ ZIOPGPN Get the tine now of the current tine in the current input 
{fite. } 


PROCEDURE CXREF] iopt$get_position ALIAS 'ziopgpn! (VAR line_number? 


iotSline range; 
VAR status: ost$status); 


fine number name of the variable into which the line number is to 
be returned. The position returned is the tine number 
of the last line obtained from the file. 


status variable into which status is to be returned 
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324.213 POSITION CURRENT INPUT FILE TO LINE 


The purpose of this procedure is to set the current input file to the 
specified line number. 


€ ZIOPSPN Set the current input file to the specified line number. } 
PROCEDURE CXREF]. iopS$set_position ALIAS *ziopspn!? (line_number: 


jot$line_range; 
VAR status? ost$status); 


fine number the line number to which the File is to be set 


status variable into which the status is to be returned 


COMPANY PRIVATE 


3-24 
CDC - SOFTWARE ENGINEERING SERVICES 


07/16/80 
ERS for Input Dutput | Control Interface REV: 6 


Ce ee Be Be eh Be ee dad PO POPE PO 88 PE FO PE PO PE PO 98 PE 28 08 PE OF OF 18 FE TE 90 98 FO TD 88 T8 PE TE OF 08 PE FO 90 BE 98 O88 90 OE PE PE OD 88 P80 TO PE 08 08 88 8 28 Ee 


320 10C INTERFACES 
304014 CURRENT INPUT FILE IS A TERMINAL? 


PO OO TG 00 PE OB P80 PB TE AE 08 PO 88 PO 08 BE PE PE PD OD PE OE AE OF PE PE PE POE OE PE PE FE PO TE OE PE OD OF DE OE FE PE PO TE OE 99 OE P88 TO HE FO PE OE PO 28 PE TE OE 18 OF OE TE PO 00 PO 78 18 OE TE 8 08 Oe 


304014 CURRENT INPUT FILE IS A TERMINAL? 


The purpose of this procedure is to determine if the current input file 
is of terminal origin. 


{ ZIOPFIT $$ Determine if the file is a terminal. } 


PROCEDURE CXREFJ] ioptcurrent_input_file_terminal ALIAS "ziopfit® (VAR 
file_is_a_terminals bootean); 


file_is_a terminal 


boolean set true if current file at top of stack is of 
terminal origin else set false 
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324-15 CURRENT INPUT FILE MARK 


This procedure determines the CYBILIO file mark of the current input 
file. 


{ ZIGPFLM Determine the present mark for the file. } 


PROCEDURE CXREF] ioptcurrent_inout_file mark ALIAS ziopfim’® (VAR mark? 
file mark); 


mark the CYBILIO file mark of current input source 
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304016 TERMINATE I0C OPERATION 


This procedure terminates operation of the I0C interfaces. The streams 
connected at initialization are disconnected closing output files and the 
input stack is collapsed closing any remaining input files. This should 
be one of the fiast steps in a program using IDC. Note that any connects 
made in addition to initialization should be disconnected seperately. 


*catic osdstat 
{ ZIOPTER Procedure to terminate I0C operations. } 


PROCEDURE CXREFJ] ioptioc_terminate ALIAS 'ziopter! (VAR status: 
ost$status);. 


status variable which contains status of operation 
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3-5 ERROR CONDITIONS 


The following is a list of condition codes associated with I0GC. 


{: ZIOCECD Error codes for the IOC Procedurese } 


CONST 
ioctinvalid open 2 4000 + ly» 
iocsinvalid_close = 4000 + 2, 
ioctnon_positionable = 4000 + 3, 
ioct$end_of_file = 4000 + 4» 
ioc$not_in_stream_map = 4000 #+ 5» 
joctstream_tabie_full = 4000 + 6, 
jocsfile_not_found = 4000 # 7» 
iocsacquire_problem. = 4000 # 8s 
focS$size_exceeded = 4000 + 9» 
ioc$token_unknown = 4000 + 10>» 
iocScommand_too_large = 4000 # Lis 
ioc$stack exhausted = 4000 + 123 


The following are common decks ZIOVMTO and ZIGNMTO containing 
information used in the construction of the osv$tempitate_array. These 
decks are added to the template array by the SES.eGENMAR procedure by 
including a product code of #I0*, 

27? fmt ( format := off ) ?? 

VAR 


osv$template_4001 3: Cstatic) string (35) 32 
*+ INVALID OPEN ATTEMPTED ON FILE +#+P*, 


osv$templ ate_4002 : CECstatic] string (36) 3% 
"+ INVALID CLOSE ATTEMPTED ON FILE #P¥ 5 


osv$tempiate_4003 : Cstatic)}] string (29) ts 
'+ FILE #P IS NON—POSITIONABLE?®, 


osv$template_4004 : Cstatic] string (37) = 
*+ END OF FILE ENCOUNTERED FOR FILE #P'*, 


osvS$tempiate_4005 : Estatic] string (37) s=2 
f+ ENTRY FOR FILE +P NOT IN STREAM MAPTt, 
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osv$temptate_4006 : Estatic}] string (22) 3 


§+ STREAM TABLE [5 FULL,» 


osv$template_4007 : ECstatic] string (19) t= 
*+ FILE +P NOT FOUND!?, 


osvitemplate_4008 
osv$templiate_4009 
§+ TABLE SIZE EXCEEDED!» 


osvétemplate_4010 
'+ TOKEN RETRIEVED FROM INPUT LINE IS UNKNOWN!» 


J 
s 


2 
* 


2 
* 


Cstatic] string (30) i= 
+ THERE WAS AN ACQUIRE PROBLEM!, 


{static] string (21) = 


€Cstaticl] string (44) 3s= 


osv$template_4011 3: Estatic] string (19) 2: 
*+ COMMAND TOO LARGE’, 


osv$template_4012 


CONST 


oscsziovmtO_ count = 123 


» 
2 


Cstaticl] string (23) 3s 
"+ INPUT STACK EXHAUSTED? ; 


2? fmt ( format t= on) ?? 


2? fmt ( format := off } ?? 

oscterror_ status» 
oscterror_ status» 
osc$error_ status» 
C4004» oscterror_status~» 
oscterror_statuss 
osc$error status» 
oscterror_ status» 
oscterror_status» 
oscserror status» 
oscS$error_ status» 
osc$error_statuss 
oscSwarning_ status» “osv$template_4012], 


C4001» 
4002» 
£4003» 


[4005>5 
C4006, 
C4007» 
£40089 
C4009» 
C4010» 
C4011» 
C4012, 


22 fmt ¢€ format 22 on ) 


ae 4 
v. 


“asv$template_4001])> 
“osvitemptate_4002]> 
“osv$temp!iate_4003]> 
“asvstempiate_4004], 
“osvstempiate_ 4005), 
“osv$templtate_ 4006], 
“osv$template_4007]»5 
“osv$template_4008]>» 
“osvstemp! ate_40091]>5 
“osv$template_4010]» 
“osv$tempiate_4011]>s 
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